home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
scope
/
051-075
/
scopedisk52
/
xlisp
/
fib.lsp
< prev
next >
Wrap
Lisp/Scheme
|
1995-03-18
|
93b
|
7 lines
(defun fib (x)
(if (< x 2)
x
(+ (fib (1- x)) (fib (- x 2)))))